<%@ Application Language="VB" %>

<script runat="server">

    Sub Application_Start(ByVal sender As Object, ByVal e As EventArgs)
        ' Code that runs on application startup
    End Sub
    
    Sub Application_End(ByVal sender As Object, ByVal e As EventArgs)
        ' Code that runs on application shutdown
    End Sub
        
    Sub Application_Error(ByVal sender As Object, ByVal e As EventArgs)
        ' Code that runs when an unhandled error occurs
    End Sub

    Sub Session_Start(ByVal sender As Object, ByVal e As EventArgs)
        ''Recursos por servicio
        Dim dtRec As New Data.DataTable
		Session.Add("dtRec", dtRec)
		
        ''Postores por convocatoria
        Dim dtPos As New Data.DataTable
		Session.Add("dtPos", dtPos)
        Dim dtJur As New Data.DataTable
		Session.Add("dtJur", dtJur)

        ''Personal por plan de servicio detalle : actividad
		Dim dtActPer As New Data.DataTable
		Session.Add("dtActPer", dtActPer)
		Dim dtPer As New Data.DataTable
		Session.Add("dtPer", dtPer)
        
        'Creamos variable de sesion para  cod. planservicio, des. plan servicio y servicio
        Session("Co_Plan") = Nothing
        Session("Co_Servicio") = Nothing
        Session("Tx_Plan") = Nothing
        Session("Co_Item") = Nothing
    End Sub

    Sub Session_End(ByVal sender As Object, ByVal e As EventArgs)
        ' Code that runs when a session ends. 
        ' Note: The Session_End event is raised only when the sessionstate mode
        ' is set to InProc in the Web.config file. If session mode is set to StateServer 
        ' or SQLServer, the event is not raised.
    End Sub
       
</script>